﻿<!--#include file="../f.asp"--><!--#include file="../ui.asp"--><!--#include file="../db.asp"-->
<%
hu_style = False
Dim time_r
time_r=Minute(Now)&Second(Now)

Dim conn,myconn,connstr,myconnstr
on error resume next
'实例后台连接
connstr="DBQ="+server.mappath(""&dbm&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'实例前台连接
myconnstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=;"
set myconn=server.createobject("ADODB.CONNECTION")
myconn.open myconnstr

sub CloseConn()
	conn.close
	set conn=nothing
	myconn.close
	set myconn=nothing
end sub
%>
<!--#include file="dingyi.asp"-->